(thumbs-file-alist): Avoid creating duplicate entries.

diff --git a/lisp/thumbs.el b/lisp/thumbs.el
index df37e50c99c49ff9a23c3c2fcd9a70053c6c3f84..a33d30ae58e3c899aa67b4588ecaf664b6e15766 100644 (file)
--- a/lisp/thumbs.el
+++ b/lisp/thumbs.el
@@ -498,10 +498,11 @@ Open another window."
       (let (list)
        (goto-char (point-min))
        (while (not (eobp))
-         (if (thumbs-current-image)
-             (push (cons (point-marker)
-                         (thumbs-current-image))
-                   list))
+         (unless (= 0 (mod (point) (1+ thumbs-per-line)))
+           (if (thumbs-current-image)
+               (push (cons (point-marker)
+                           (thumbs-current-image))
+                   list)))
          (forward-char 1))
        (nreverse list)))))